home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue38 / Survive / dmDemo.dfm / dmDemo.txt
Encoding:
Text File  |  1998-08-25  |  4.0 KB  |  152 lines
  1. object DemoDM: TDemoDM
  2.   OnCreate = DemoDMCreate
  3.   OnDestroy = DemoDMDestroy
  4.   Left = 580
  5.   Top = 238
  6.   Height = 359
  7.   Width = 391
  8.   object Database1: TDatabase
  9.     Connected = True
  10.     DatabaseName = 'Test'
  11.     DriverName = 'MSSQL'
  12.     LoginPrompt = False
  13.     Params.Strings = (
  14.       'DATABASE NAME=ULTIPRO_USG'
  15.       'SERVER NAME=STEVET'
  16.       'USER NAME=SA'
  17.       'OPEN MODE=READ/WRITE'
  18.       'SCHEMA CACHE SIZE=8'
  19.       'BLOB EDIT LOGGING='
  20.       'LANGDRIVER='
  21.       'SQLQRYMODE='
  22.       'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
  23.       'DATE MODE=0'
  24.       'SCHEMA CACHE TIME=-1'
  25.       'MAX QUERY TIME=300'
  26.       'MAX ROWS=-1'
  27.       'BATCH COUNT=200'
  28.       'ENABLE SCHEMA CACHE=FALSE'
  29.       'SCHEMA CACHE DIR='
  30.       'HOST NAME='
  31.       'APPLICATION NAME='
  32.       'NATIONAL LANG NAME='
  33.       'ENABLE BCD=FALSE'
  34.       'TDS PACKET SIZE=4096'
  35.       'BLOBS TO CACHE=64'
  36.       'BLOB SIZE=32'
  37.       'PASSWORD=')
  38.     SessionName = 'Default'
  39.     Left = 25
  40.     Top = 17
  41.   end
  42.   object qryQualifiers: TQuery
  43.     CachedUpdates = True
  44.     AfterOpen = qryQualifiersAfterOpen
  45.     AfterClose = qryQualifiersAfterClose
  46.     AfterScroll = qryQualifiersAfterScroll
  47.     DatabaseName = 'Test'
  48.     RequestLive = True
  49.     SQL.Strings = (
  50.       'SELECT quaRecID, quaID, quaCode, quaFilterID, qlfCodeTable'
  51.       '  FROM Qualifiers, QualifierFilters'
  52.       '  WHERE quaFilterID = qlfID AND'
  53.       '        quaID = :quaID '
  54.       ''
  55.       '')
  56.     Params.Data = {0100010005717561494400030400000000000000}
  57.     UpdateObject = upsQualifiers
  58.     Left = 86
  59.     Top = 20
  60.     object qryQualifiersQuaCode: TStringField
  61.       FieldName = 'quaCode'
  62.       OnGetText = qryQualifiersQuaCodeGetText
  63.       OnSetText = qryQualifiersQuaCodeSetText
  64.     end
  65.     object qryQualifiersquaFilterID: TSmallintField
  66.       FieldName = 'quaFilterID'
  67.       OnChange = qryQualifiersQuaFilterIDChange
  68.     end
  69.     object qryQualifiersQuaFilterName: TStringField
  70.       FieldName = 'quaFilterName'
  71.       LookupDataSet = qryFilterNameLookup
  72.       LookupKeyFields = 'qlfID'
  73.       LookupResultField = 'qlfDescription'
  74.       KeyFields = 'quaFilterID'
  75.       LookupCache = True
  76.       Size = 25
  77.       Lookup = True
  78.     end
  79.     object qryQualifiersquaRecID: TAutoIncField
  80.       FieldName = 'quaRecID'
  81.     end
  82.     object qryQualifiersquaID: TSmallintField
  83.       FieldName = 'quaID'
  84.     end
  85.     object qryQualifiersqlfCodeTable: TStringField
  86.       FieldName = 'qlfCodeTable'
  87.     end
  88.   end
  89.   object dsQualifiers: TDataSource
  90.     DataSet = qryQualifiers
  91.     Left = 189
  92.     Top = 16
  93.   end
  94.   object upsQualifiers: TUpdateSQL
  95.     ModifySQL.Strings = (
  96.       'update Qualifiers'
  97.       'set'
  98.       '  quaID = :quaID,'
  99.       '  quaFilterID = :quaFilterID,'
  100.       '  quaCode = :quaCode'
  101.       'where'
  102.       '  quaRecID = :OLD_quaRecID')
  103.     InsertSQL.Strings = (
  104.       'insert into Qualifiers'
  105.       '  (quaID, quaFilterID, quaCode)'
  106.       'values'
  107.       '  (:quaID, :quaFilterID, :quaCode)')
  108.     DeleteSQL.Strings = (
  109.       'delete from Qualifiers'
  110.       'where'
  111.       '  quaRecID = :OLD_quaRecID')
  112.     Left = 296
  113.     Top = 18
  114.   end
  115.   object qryFilterNameLookup: TQuery
  116.     DatabaseName = 'Test'
  117.     SQL.Strings = (
  118.       'SELECT qlfID, qlfDescription, qlfCodeTable'
  119.       '  FROM QualifierFilters'
  120.       '  ORDER BY qlfDescription')
  121.     Left = 87
  122.     Top = 69
  123.     object qryFilterNameLookupqlfID: TSmallintField
  124.       FieldName = 'qlfID'
  125.       Origin = 'QualifierFilters.qlfID'
  126.     end
  127.     object qryFilterNameLookupqlfDescription: TStringField
  128.       FieldName = 'qlfDescription'
  129.       Origin = 'QualifierFilters.qlfDescription'
  130.       Size = 25
  131.     end
  132.     object qryFilterNameLookupqlfCodeTable: TStringField
  133.       FieldName = 'qlfCodeTable'
  134.       Origin = 'QualifierFilters.qlfCodeTable'
  135.     end
  136.   end
  137.   object qryQuaIDLookup: TQuery
  138.     DatabaseName = 'Test'
  139.     SQL.Strings = (
  140.       'SELECT DISTINCT quaID FROM Qualifiers')
  141.     Left = 87
  142.     Top = 121
  143.   end
  144.   object qryMaxQuaIDLookup: TQuery
  145.     DatabaseName = 'Test'
  146.     SQL.Strings = (
  147.       'SELECT max(quaID) + 1 FROM Qualifiers HOLDLOCK')
  148.     Left = 88
  149.     Top = 172
  150.   end
  151. end
  152.